home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TGCBOR20.ARJ / INTROPAK.COM / TSTPICK3.C < prev    next >
Text File  |  1991-04-06  |  4KB  |  121 lines
  1. #include "teglsys.h"
  2. #include "stdlib.h"
  3.  
  4. char pickeditem[255];
  5.  
  6.  
  7. unsigned exitoption(imagestkptr fs,msclickptr ms)
  8. {
  9.     abortexit(pickeditem);
  10.     return 1;
  11. }
  12.  
  13.  
  14. unsigned droppicklist(imagestkptr fs,unsigned userkey,void *dataarea)
  15. {
  16.     optionmptr picklist = (optionmptr) dataarea;
  17.  
  18.     dropoptionmenu(picklist);
  19.     return 0;
  20. }
  21.  
  22. unsigned randomnum(unsigned n)
  23. {
  24.    if (n) n=rand()%n;
  25.    return n;
  26. }
  27.  
  28. unsigned dropitems(imagestkptr fs,msclickptr ms)
  29. {
  30.     optionmptr picklist;
  31.  
  32.     getuserdataarea(fs,222,&picklist);
  33.     detachpicklist(picklist);
  34.     deletepickitem(picklist,randomnum(picklist->numofentries)+1);
  35.     deletepickitem(picklist,randomnum(picklist->numofentries)+1);
  36.     deletepickitem(picklist,randomnum(picklist->numofentries)+1);
  37.     deletepickitem(picklist,randomnum(picklist->numofentries)+1);
  38.     attachpicklist(picklist,picklist->selectedoenum);
  39.  
  40.     getuserdataarea(fs,223,&picklist);
  41.     detachpicklist(picklist);
  42.     deletepickitem(picklist,randomnum(picklist->numofentries)+1);
  43.     deletepickitem(picklist,randomnum(picklist->numofentries)+1);
  44.     attachpicklist(picklist,picklist->selectedoenum);
  45.  
  46.     beep(500,4,50);
  47.     return 1;
  48. }
  49.  
  50.  
  51. unsigned additems(imagestkptr fs,msclickptr ms)
  52. {
  53.     optionmptr picklist;
  54.  
  55.     getuserdataarea(fs,222,&picklist);
  56.     detachpicklist(picklist);
  57.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item one on list",additems,pickeditem);
  58.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item two on list",dropitems,pickeditem);
  59.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item three on list",additems,pickeditem);
  60.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item four on list",dropitems,pickeditem);
  61.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item five on list",additems,pickeditem);
  62.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item six on list",dropitems,pickeditem);
  63.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item seven on list",additems,pickeditem);
  64.     attachpicklist(picklist,picklist->selectedoenum);
  65.  
  66.     getuserdataarea(fs,223,&picklist);
  67.     detachpicklist(picklist);
  68.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item one on list",additems,pickeditem);
  69.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item two on list",dropitems,pickeditem);
  70.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item three on list",additems,pickeditem);
  71.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item four on list",dropitems,pickeditem);
  72.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item five on list",additems,pickeditem);
  73.     insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item six on list",dropitems,pickeditem);
  74.     attachpicklist(picklist,picklist->selectedoenum);
  75.  
  76.     beep(500,4,50);
  77.     return 1;
  78. }
  79.  
  80.  
  81. void testpicklist(void)
  82. {
  83.     unsigned x,y,x1,y1;
  84.     optionmptr picklist1;
  85.     optionmptr picklist2;
  86.  
  87.     x = 100;
  88.     y = 100;
  89.     x1 = x+200;
  90.     y1 = y+200;
  91.  
  92.     pushimage(x,y,x1,y1);
  93.     shadowbox(x,y,x1,y1);
  94.  
  95.     picklist1 = createpicklist(font14);
  96.     definepickitem(picklist1,"item one on list",additems,pickeditem);
  97.     definepickitem(picklist1,"item two on list",additems,pickeditem);
  98.  
  99.     setuserdataarea(stackptr,222,picklist1,droppicklist);
  100.     definepicklistarea(stackptr,10,10,3,5,picklist1);
  101.  
  102.  
  103.     picklist2 = createpicklist(roman25);
  104.     definepickitem(picklist2,"item one on list",additems,pickeditem);
  105.     definepickitem(picklist2,"item two on list",additems,pickeditem);
  106.  
  107.     setuserdataarea(stackptr,223,picklist2,droppicklist);
  108.     definepicklistarea(stackptr,10,picklist1->y1+10,3,1,picklist2);
  109. }
  110.  
  111.  
  112. void main()
  113. {
  114.     easytegl();
  115.     easyout();
  116.  
  117.     testpicklist();
  118.  
  119.     teglsupervisor();
  120. }
  121.